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SERIES=ILIT PL/M=86 V2.0 COMPILATION OF MODULE TP 
OBJECT MODULE PLACED IN $F1:21P.08J 
COMPILER INVOKED BY: PLM8S6.86 :F1:1P.P86 OPTIMIZE(3) XREF SETCF1) DEBUG 


STITLEC’ILNA Transport Control Layer Interface Process 04/15/82") 
SCOMPACT DEBUG NOCOND : 

kkk WARNING 10 IN 1 CLINE 2): RESPECIFIED PRIMARY CONTROL, IGNORED 
$SetT Cmipform) 


SIF 7 
SELSE 


SINCLUDE (:F1:coyrt.dcp) 


/* Intel Corporation Proprietary Information. 
This listing is supplied under the terms of a 
license agrement with Intel Corporaton and 

may not be copied nor disclosed except in 
accordance with the terms of that agreement. */ 


ou ou aon 


SENDIF 


/x George D Marshall SC6-213 x775117 = x/ 
1 lo: DO-s 


/x The Interface Process interceots all client requests, handles those 
it can (such as Status), and does any pre-processing possible on others 
(such as Open) before passing them along to the proper subsystem in TCL x/ 


SLE <t7 
SECS 
SINCLUDE C3F1:sTCLGBL.INC) 
[KKK KEK KK RK KKK KK / 


/*x Global Literals *x/ 
[KKK KR KIO KK RK 


= /*x TCL Global Literals 04/15/82 x/ 
2° 4 = PEGEARE ; 
= maxisend3seg LITERALLY “O7H’, /* max no of backtto-~back segs that one connection x/ 
= /*x can send at a time */ 
= tclSheadarS3len LITERALLY "20°, /x bytes in tcl header */ 
/x ETHERNET-SPECIFIC VALUES x/ 
dlisSheaderslen LITERALLY “14°, /x bytes in dll header x/ 
minspktdlen LITERALLY "46%, /x minimum total pkt len - bytes */ 


max$seg$dataslen3lit LITERALLY °1480%, /* (1480) max now of client bytes in seg */ 
tcel$Sprotocolicodse LITERALLY *“S001H’-,/* DLLCONNECT user type field */ 
tcol3protocolScodeSrev LITERALLY °0150H’-,/* packet header user type field */ 


/x Mise values */ 
tcelSmipSport LITERALLY "4", fx min port for IPSINSMBX */ 
log$rb3min$port LITERALLY “5, /x debugging: mip port for logging */ 
mipsechosport LITERALLY 7", /x mip port of on-bd tcl echo server */ 


PL/M- 


g 


hee 


& 


CouPiLes 


tcltversionslit 
defsnetsidSlit 


onthdStclechotport 


true 
false 
forever 


TimeoutSincrsaseSstate 


LLNA Transport Control Layar Intartfacse Process 


04/15/82 04/23/32 PAGE 


TimeoutSsteadyS$state 


DECLARE 
numscdbs 


leidSvector (x) 
specstype(x) 
curtmaxScdhs 


tcltstate 
locinet 
locShost(3) 


oe aa 


WORD 
BYTE 
BYTE 


Si 62 Geo 
WORD 
WORD 


LITERALLY 


EXTERNAL, 


EXTERNAL, 
EXTERNAL, 
EXTERNAL, 


EXTERNAL, 
EXTERNAL, 
EXTERNAL, 


a © lie 
slowly 
changed, 


LETERALLY "101H’, /* Version of this TCL for seg header */ 
LITERALLY "41°, /x default Network ID: "this network" */ 
LITERALLY a cae /x TCL port of ontboard tcl echo server */ 
iit BRALLY “OFFH’, 
LITERALLY “0. 
LITZRALLY “WHILE true’, 

LITERALLY °1°%, /* In this state the retransmission timeout 


increased */ 

state the timeout is 
This should not be 
initial state since 


is rapidly 

/* In this 
decreased. 
it is the 


acdb is intialised to zero x/ 


/* 


/~x 


/x 
/* 
/* 


/x 
/x 
/x 


defSretransto$Sdw OWORD EXTERNAL, /x 


defSabortstoshi 
deftpersist 


max3sseqasdataslen WORD 


rtcesdwy 


DECLARE 
curSedbSindeax 
curscid 
firstSopean 
last3cid 


specStypestemp 
rbs req 
totsbufslen 
(j-scratch) 


SIF dbg 
SENDIF 


DECLARE 


WORD 
WORD 


DWORD 


BYTE, 
WORD, 
BYTE 
WORD 


BYTE, 
BYTE, 
WORD, 
WORD, 


EXTERNAL, 
EXTERNAL, 


EXTERNAL, /* 
maxSwindowSsize BYTE EXTERNAL, 


EXTERNAL, 


INITIAL C true), 


PUBLIC, 


/ 


/x 


/* 
/x 


Tk 
at 
/* 


/* 
/x 


LR EKER KKEKKKKKKKKKEK / 


/*x TCL Global Data Base */ 
[RRR RRR KKK KKK RK KR RR RK KK / 


Externals in TSTART x/ 


now of cdb’s open now x/ 
/x NOTE limit of 255 cdbs x*/ 
list of cids in use x/ 
remote socket spec type: fully, partial, un- x/ 
max no of conns */ © 


state of tel:77*/ 

my network ID x*/ 

my host ID (from DLL) */ 
of timeout */ 


max no. client bytes in seg x/ 


timestamp storage for stat */ 


IP’s local variablas *«/ 


indicates current leidvector word x«/ 
cid of connaction being processed x/ 
/x "First open request” flag" */ 
last local cid value used, initialized 
first open. x/ 

type of open specification~tamp */ 


used in enter queus routines x/ 
scratch variables */ 


/x Client interface routines (code-saver 
approach) *x*/ 


G@> 
rn 
Lal 


PL/M-386 COMPILER iLNA Transport Control Layer Interface Process 04/15/82 04/23/82 «PA 


procslocation WORD, 

procs (*) WORD INITIAL 
C.opensrtn, .zopensrtn, .closesrtn, .zstatus$ritn, .daefSstatus3rtn, 
2eseandsrtn, .sandsritns, .post3rbuf, .zabortsrtn); 


SSAVE NOLIST INCLUDE (C3F1:TCLMBX.INC) 
NOLITST  INCLUOE “CrPIsoLLaDCP) 


SSAVE NOLIST INCLUDE (:F1:THACF.INC) 


26 4 DECLARE 
cursSedb3p DOINTER, 
c BASED cursScdhip 
Sir te 
SeUSE . 
SL NOCCUDE TPT sTCL eos eI NG) 
[RRR KKRKKEKKKK KKK KKK / 
{xx Conn Data Base *xx/ 
[RRR KR RK KKK KKK KKK RK 


= STRUCTURE (€ /* Connection Data Base Template 10/16/81 */ 
= /x Offset x/ 
= stats BYTE, /x OQ upper bit indicates passive/act open */ 
= ounerSdevice BYTE, [x 1 MIP device ID of local client */ . 
= ownerSprocessSid WORD, /* 2 ID of local client for failure handler-no relationship to SCL ID’s 
- * / : 
loc$cid WORD, /x & xf 


/* Following fields (***) ara aligned with 
same fields in RBO~exploited by openrtn */ 


= locSport WORD, J%&. & kkk */ - 
= remSnet WORD, /x 8 * ok * / 

= remShost (3) WORD, /* A = 10t xxx x / 

= remSoort WORD, {x 10 = 16T *** * 

= persist WORD, /* 12 = 18t «xx no of times to ignore connect refusal */ 
= abert3toShi WORD, /* 14 = 20t xxx xf 

= remScid WORD, Je 16 = 22T x/ 

= retranStoSdw DWORD, /* 18 = 24T remtransmit timeout value */ 

= reserved WORD, 4x 1C = 28T */ 

= timedSseq 3no WORD, /x 1E = 30t xmit seq no whose response is being timed */ 

= segSiransttimasdw OWORD,/* 20 = 32t transmit timestamp for timed segment */ 

= cumSretransdw OWORD, /* 24 = 326t cummulative retran time *«/ 

= persist$cnt WORD, /x 28 = 40t count of number of times my SYN refused */ 

= ebtashdr POINTER,/* ZA = 424 client buffer transmit queue hdr */ 

= pebashdr POINTER,/* 22 = 44t posted client buffer queue hdr */ 

= defSstatusip POINTER,/* 32 = 50t ptr to deferred status RB, if any */ 

= my3ack3no WORD, /* 36 = 354T highest revd seq we can ack x/ 

= seen WORD, /x* 38 = S56T highest seg seq no seen by revr x/ 
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28 


Hii nb uo uk ton a 


S$SAVE NOLIST INCLUDE (€:F1:TCLRBO.INC) 


myscredit BYTE, /x 3A 58t # pkts we said remote tcl can send usx/ 
curblkdindex BYTE, /*x 38 59t blk # of current rev blk */ 
chdatasindex WORD, /*® SC 60t next avail byte in current rcv block */ 


62T # bytes already saved from current numbered rev sag */ 
64t # bytes left in current rev blk */ 


revibytesSconsumed WORD,/* 3&5 
curbikslensleft WORD, /x 40 


Ho HW HH MW on He a a 
On 
Oo 
e+ 


his$ack Sno WORD, /x 42 highest xmit seg no acked by remote guy */ 
next$transmit WORD, [x 44 68t seq no to be sent next (not always highest) */ 
closed$reason QYTE, /x 46 7Ot Saved rbs.resp when conn aborted */ 

hisscredit BYTE, /* 47 717 # pkts remote tcl said we can send */ 
highest3sent WORD, [x 48 72t arr/flow hidden variable for GET */ 
chtqsbuf3scnt BYTE, /x 44 = 74t x/ 

pebashbuf$cent BYTE, /* 4B = 75t x/ 

pkts$rej WORD, Je 40 = 76t # of revd pkts discarded */ 

pktstretran WORD, /x GE = 78t # of pkts recrtransmitted */ 

noSconfid WORD, /x 50 = 80t ballpark ratry count since last ackx/ 
last3no$Sconféid WORD, /x 52 = 82t # of retriss last time there was a retransmission */ 
Ratransmit$state byte, /* 54 = 84t State of retransmission algorithm */ 

sendflag BYTE, fe 55 = 65¢t  */ 


86t no. of undelivered bytes in last pkt */ 
no. of times pkt rejected due to no rev buf */ 
90t no. of times ayt pkts weren’t ansewerad x/ 

/x The Alarm control Slocks */ 
dataSalarm$cbh (2) WORD, /* 5C 92t Data Alarm Control Block header */ 
datasacb3irbtype BYTE, /x 69 Type byte positioned same as in irh x/ 
datasdachb$flag BYTE, fx 61 97t ACB Flag byte Crunning, expired, cird) x/ 
datasSacbSrem(10) BYTE, /* 62 98% remainder of data ach */ 


pendingtrev$data WORD, /* 564 
revSbufsrejgcent WORD, [x 58 
aytbecount WORD, /* SA 


uouou 
oO. 
64) 
rt 


Hou Won 
‘oO 
a 
ct 


O8t Control Alarm Control Block header */ 
12t Type byte positioned same as in irb x*/ 


ctlSalarm3cb(2) WORD, /*x 6C =1 
| 
113% ACB Flag byte Crunnings, expired, clird) */ 
1 
4 


cetlSachSirbtype 38YTE, /x 70 


ctlsach$flag BYTE, /* 71 
ctltacb$rem(10) BYTE) 1% Fe 14t rest of ctl ach */ 
/x 7C 24t Total Length */ 
SENOIF 
; 
SIF f7 
SELSE 


SSAVE NOLIST. INCLUDE (:F1:TCLCSD. INC) 


LKR KRKKRKEKKKEKKKKRK KKK KKK / 


[xx R80 Format *x/ 
LRKREKKKKREIKKK KKK KEKE KK / 


DECLARE 
cursgrbsSp - POINTER, 
curtrbvsp POINTER, 
nxtsrb3p POINTER, 
roo BASED curtrhs3p 

SIF f7 

SELSE 


v Z 
[RK KKK KKK KKKEKKKKKKK / 


[xxx R8S Format *x/ 
[Lek K RR RK KR RR kK KK KK] 


SZ 


33 
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DECLARE 

ros BASED curtrbstp 
ae | 
Ec 


Oe 
VE NOLIST INCLUDE C:F4:TCLRBS.INC) 


risv SASEO curSrbvSp (1) 
SIF 7 : 

BELSE 

SSAVE NOLIST INCLUDE (€:F1:TCLRBV.INC) 


; 
SIF f7 

SELSE 

SSAVE NOLIST INCLUDE (C:F1:TCLRBC.INC) 


[RK RR KK RK KR KK RR KK / 
/x*eewk IRB Format **x/ 
[KKK KKEKKKKKKK KKK KEK] 
/x TCL’s Internal Fequest Block Template (for TCL’s processes to 
communicate with each other under CHX x*/ 


DECLARE 
CirbSo, irbS$b) WORD, 
irb3p POINTER ATCAirhb$o), 
irb BASED irbso 

S1F T7 

SELSE 

SSAVE NOLIST INCLUDE (:F1:TCLIRB.INC) 
7 

DECLARE /* Long IRS8s7 used to tell TP to send RSTs */ 
lirb BASED irbSo . | 

SL et 

SELSE 


SSAVE NOLIST INCLUDE (C:FI:TLIRB.INC) 


4 


DECLARE 
defSstx3p POINTER, 
def$st BASED def 3sttp 
SIF f7 
SCESe 


SSAVE NOLIST INCLUDE C:F1:TCLRSS.INC) 


7 


Slr ee 
ag go 
SSAVE NOLIST INCLUDE CFI TCLIRC. INC) 


7 
c : sa 
: 


NOLTST INCLUDE Corti TCE RS C.-INC) 


/* External Procedure declarations: Define calls to other layers and CMX */ 
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Mm min mm mn mn 


mr 


mins 


cls 
w es 


LLNA Transnort Control Layer 


Sedlo: PROCEDURE Cindex, cdbhtp3o) 
index 3YTE, 


ND setuosedh, 


PROCEDURE Cnsm) WORD EXTERNAL; 


DECLARE (nz, m) 


END mins 


WORD; 


Tntearface Process 


04/15/82 04/23/82 


EXTERNAL; Je in TSTART */ 
cdlb3pto WORD, 


/* in RP x/ 


r$edib3Salarms: PROCEDURE CeCdb3p) EXTERNAL, /e in RP x/ 


DECLARE 


edbSp 


POINTER; 


ENO clearscdbSalarms, 


chk$deferredSstatus: 


random: PROCEDURE WORD 


search_IcidSvector: 


DECLARE cdlhSp 


PROCEDURECcdhSp) 
POINTER, 


END chk3deferred$Sstatus;, 


END random, 


SXTERNALs 


2FT:KAOS.OCP) 


DECLARE 
END search_lcidSvector, 
SLe TZ 
SeELSE 
SSAVE NOLIST INCLUDE 
SLE T¥ 
SELSE 
SSAVE NOLIST INCLUDE 


DECE 


defe 


DECL 


ARE 
ipSirbSlist ¢€3) 8YTE 
ipSirbSindex BYTE 


SF1:4IP.OCP) 


ZXTERNAL; | /* in RP x*/ 


/x in random x*/ 


PROCEDURE Cfind$Starget) WORD EXTERNAL; /x in TCOM */ 
find3target WORD, 


INITIAL COFFH,/OFFH,-OFFH), 


INITIAL(O); 


[RIK KERK KKK KKK KK ROK / 
[exe ipsSdeferSirb3tp *«xx/ 
[RRR KKK RK RRR KKK KR RK RK / 


rSirbStp: PROCEDURE Ctype-cdbSprvirbSindexSo, irbSlist3o) PUBLIC REENTRANT- 


ARE type BYTE? 
edlsp POINTES, 
irbSindexSo WORD, 


/x* 
/*x 
/x 
/x 
/x* 


/* 


This routine accepts requests to send */ 
an irb to the transmit process (tp). */ 
The send is deferred until after ip */ 
does not have scheadclock locked, to */ 
avoid a deadlock with tp. */ 


irb type to send x*/ 


3YTE, 


irposlist$o WORD, 

irbSindex BASED irbSindexSo BYTE, 
-irbSlist BASED irbSlist3o ¢€3) 

(ahs Goes ho BASED edb3p 

7 . 

E 

E\NOLIS)T INCLUDE CrP sTCLCUDS .INC) 


SIF 
SELS 
SSAYV 


PAGE 
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? 
138 2 IF (type = irbSsend$cheack) OR Ctype = irbSsandsSflag) THEN 
139 2 IF cdipSc.sendsflag THEN RETURN, /x a previous sendflag subsumes either one.x*/ 
141 2 IF type = irbSsendSflag THEN dinSc.send3Sflay = true; /x set it if not prev sat */ 
143 2 irbslistCirbSindex) = types /* save the type code until later */ 
144 2 irbSindex = irb3Sindex + 1; 
145 2 IF irbtindex > 2 THEN CALL caShaltSand$catchifire(Chacfsipsdetf$irb) , 
147 2 END deafertirbstp, 
148 1 ipSdeferSirbStp: PROCEDURE Ctype); 
/x code-saver routine for common call */ 
149 2 DECLARE types BY EE? 
150 2 CALL deferSirbStp(type, curScdbip, wipsirbSindex, eipsirbs$list)-; 
151 2 END ipSdeferSirb3stp; 
152 1 sendideferredtirbs: PROCEDURE Cirbdindex3o, irbSlist3o, cdbSindex, cid) PUBLIC REENTRANT; 
/x common version for rp and ip for x/ 
/x companion routine to above, called */ 
/* ONLY AFTER sched$Slock has been released */ 
/* by ip or rpv to actually send the irbs */ 
/x requested by this invocation of ip or rp */ 
/x while schedlock was held. Avoids */ 
/x the deadlock caused by tp doing a */ 
/x schedule while nolding an irb x/ 
153 2 DECLARE jj BYTE, 
irbSindexso WORD, 
irb$listto WORD, 
edb Sindex BYTc, 
cid WORD, 
irbSindex BASED irbSindextso BYTE, 
irbtlist “BASED irbSlist3So (3) BYTE, 
154 2 IF irbSindex = Q THEN RETURN, /x nothing to do */ 
156 2 90 j = 0 TO irbSindex-1;7 
157 3 irbtp = cqaS$receive(.freesSirbsmbx), 
158 3 irb.type = irbSlist(j)-, 
159 3 irb.cdbS$index = cdbSindex; 
160 3 irb.scid = cid; 
161 3 CALL cq3send(.tnotmbx, irb3n); 
162 3 END; 
163 2 irbSindex = 0; 
164 2 END sendideferredSirbs, 
[KKK KIKI KK KKK KR KE KKK EK / 
/xxxk ip send urbs_back ***/ 
[RR KK RK KK KR RK KK RK RK KK / 
165 1 ip_sendirbs back: PROCEDURECresp_code), 


/* shared-code routine to insert a response code 
in the current rbs- and sand it back to client. */ 
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COMATLE? LLNA Trenenort Control Layer Tnterface Process 04/15/22 04/23/32 
DECLARE 
resp_code BYTE; 
rbs.,resp = resp_code, 
rbs.elink = OQ, /x always clear link field */ 
CALL caSsend(.buftmiptmbx, cursrbssy); 
END Llolsend urbs_ back, 
[xR KK KKK KKK KK KKK / 
/xxe daltaSseq *«*x*/ 
[KKRKRKKKKR KKK RK KK 
deltaSseq: PROCEDURE Cbuffers$length) WORD; 
/x this routine is used to compute the delta to add 
to the first sequence number of an RB to get the last. 
sequence number associated with that RB. Used in 
enterSchtq to assign saquence numbers, and in 
enterSpcbhq to assign rev buffer credit. */ 
DECLARE 
Cbufferflength, delta) WORD, ! 
delta = bufferSlength / maxSsegSdataslen-, 
IF (delta <> 0) AND CCbuffear3length MOD maxSseg$data$S$len) = 0 ) THEN 
delta = delta - 1, 
RETURNCdeltad, 
END deltasseq,s 
[RK KKK KKK KKK KK KK RK KKK / 
/xxx last$rbsSptr x*x*xx/ 
[KK KKK KKK RK KKK KK KKK EE / 
lastfrbssptrs:s PROCEDURE CIrptp) POINTER, ; 
/x code saver routine to find the last RBS on a TCL 
linked list, and return its pointer. */ 
DECLARE 
Irps3p POINTER, 
lrp$rbs 3ASED Llrpip 
SLE of 
BELSE 
SSAVE NOLIST INCLUDE (€:F1:TCLRBS.INC) 
, 
CO WHILE IlrpSrbs.link <> QO, 
lrpsp = Irp3rbselink,; /* go next entry down the list x«/ 
ENDO, . 
RETURNCIrssp),; 
ENS lastirbsSptr, 
[LKR KKRKKKKKKK KKK KKK / 
[xxx sumbof$blocks **x*/ 
[KKK KK KK KER KKK KKK KKK KS 
sumSofS$blocks: PROCEDURE WORD; 
DECLARE sum WORD, 
/x code-saver routine to sum the total bytes 
in an xmit or rev buf in the current RBS. x/ 
sum = Q, 
DO jg = 1 TO rbs.snumsblks; /x store it in the buf len field of the RBS */ 
sum = sum t+ rbv€jr-t).ablk3len,z 
END, 


PAGE 
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1971 
192 


493 


194 


mn . 


sd 


rm 


Gi UF GI Ui 


hoon PM 


RETURNCsum), 
END sumtofs3blocks, 


enterSchtq: PROCEDURE, 


/* Routine to enter a send 


transmit queue (chta) The 
current IP R&S, as specifies 
assigned to the first segme 
in the R&B seq field for use 


/x This routine supports th 
Request Blocks may describe 
buffers, presented as a set 
blocks. Zeromlength blocks 
although a zero length buff 
“non-zero successor buffer h 
Cexception: a zero langth s 
xmit queue will be returned 


DECLARE chtqSrbs3p POINTER, 
lastiseq WORD, 
j 2YT=,s 
chtq$Srbs EASED chtqSrbs$p 

Sif 47 

SELSE 


SSAVE NOLIST INCLUDE Cerise TCLR3sSeInNc) 


f 


CechtqsbufScent = c.achtasbufeecnt + Ag 


IF c.chtqsbuftcent = 1 THEN 


cechtqthdr = curd3rbsip, 
/* 
IF €c.state AND statesmask) < a 
ELSE lastseq = c.enext$trans 


/*x seq 

END; 

ELSE . /* 
— D0, 
ecbhtasrbsSn = Llastirbstotr(c.cht 
lastSseq = chtq$rbs.last3seq;7 
chtaSrbs.elink = curérbstp; /* 

END, 

, /* 
totSbufslen = sumSofsblocks, [x 
rbos.bufdlen = tot$buf3slan, 
rboselink = Q, ix 

/* 
/* 
/* 


rfaca Process 4/15/82 


04/23/32 


[KERR KKK KKK KKK RK KK / 


[xxkxe enterschtq *«*x*xx*/ 
[KKK KK RK RK RK RK / 


request block onto the client buffer 
request block to be entered is the 
d in curSrbs$p. The sequence number 
nt in the buffer supplied is inserted 

by the Transmit and Receive processes. */ 


e client buffer fragmentation mechanism. 
arbitrarily long Cup to 65540 bytes) 
of arbitrarily sized non=contiguous 
are alloweds as are zeronmlength buffers, 
er will not be returned until the first 
as been sent and acknowledged 
end) when there is nothing else on the 
immediately). */ 


/* Bump buffer count in queue x«/ 
Queue is empty~ RB becomes top entry */ 
record seq no of last seg to use in */ 
stab THEN last$seq = 17 /* generating seq’s x/ 
mit -1; 
for this RB x«/ 
queue nonempty: put RB at end of queue x/ 
aghdr), /* Get ptr to last RBS on list */ 


now link the new R8& to the last RBs and wae */ 


Now compute the total number of bytes */ 
in all blocks of this buffer x/ 


mark RB as being last one x/ 
now set flag indicating whether this RB has */ 


any sequence-number consuming contents ~~ isssr*/ 
client data or sequence-~consuming tcl control */ 


PAGE 
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/x signals */ 


211 2 rlbs.contents = false; 
212 2 IF (totsbufsilen <> 0) OR (rbs_req = sendSeombreq) OR (rbs_req = close$req) 
213 Z THEN rbs.econtents = true; 
/* now assign first and last sequence numbars to this RB x/ 
214 2 IF rbs.contents THEN 
215 2 D0; /* it has sandable contents */ 
216 3 ros.first3seq = (lasttseq + 1); 
217 S ros.slast$seq = (last$saq + 1) + deltaSseq(tot$Sbufslen); 
218 5 END, : 
219 2 SESE 
DO; /* zilch contants = give it null seq no x/ 
220 3 rbs.»firstiseq, rbs.zlastiseq = last$seq; 
221 3 IF cechtqsSbufSent = 1 THEN . 
222 5 DO; /* RB is only one in xmit queuersend it back now x/ 
223 4 CALL ip _send urbs_back( okfresp); 
224 4 cechtqSbufsécent = Q; 
225 4 cecbhtqshdr = Q; 
226 4 END; 
227 3 END, 


228 Z “ END enterSchta,z 
LKR KKK KKEKKKE / 
[xxxex antersSpchq *«**xx*/ 
[RRR KKK RRR KR AK KK KE / 
229 1 enterSpebq: PROCEDURE, 

/* Routine to snter a request block onto the posted client buffer 
receive queue (nchq). The request block to be entered is the 
current IP R3S, as specified in curS$rbs$p. 

If the RB being entered goes at the top of the queue, then two 
variables are initialized for the PUT (re-assembly) routine in 
the Receive Process: the number of bytes available in the top 
available block, and the currently in-use block number in the 
ton RB. x/ 
250 2 DECLARE pcbafrbsfp POINTER, 
pebqSrbs BASED pecbaqtrbsSp 
Ser tT 
SELSE 
SSAVE NOLIST INCLUDE (C:F1:TCLR32S.INC) 
; 
251 2 ceapcbasbuf3ent = c.pcbaqsbut3ent + 17 /x incr no. of buffers in this queue */ 
232 2 IF c.epchaShbufscent = 1 THEN 
235 2 DO; 
234 5 capcbaqshdr = curSrbs3p, /* set queus header and base for R8& */ 
235 3 IF rbs.numsblks <> Q 
236 3 THEN c.curbikSlenSleft = rbv(0).blk$len, /x Set up so PUT Cin RP) will work x/ 
237 5 ELSE c.acurblktlenSleft = O7 /* no blocks */ 
236 3 eechdataSindex = 0; /x sat up for PUT x/ 
239 3 eecurbliksaindex = 0; 
240 3 ENO, 
241 2 SLS =e 


D0, 
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242 3 pebasrbs3p = last3rbsS$ptr(c.pcbhg3Shdr); J/* get ptr to last rbs on queue x*/ 
243 3 pebqtrbs.selink = curSrbsSp, /* and of list found - link new rbs to it */ 
244 3 ENG; 

245 2 rbhbs.bufSlen = OG, |. /* Initialize "bytes-used" in RB for PUT */ 
246 Pe rlbs.ezlink = Q; /x mark end of queue */ 


/x Now compute the total number of bytes */ 
247 2 totsbufSlen = sumSofSblocks; /x in all blocks of this buffer. */ 
7 /* assign credit equal to estimated */ 
/* number of segs that fit in buf, */ 
/x and save it in the R8. */ 


248 2 CamyScredit = camyScredit + ( rbs.credit := 1 + deltaSseq(totSbufSien) ); 
249 =. 2 ENC entertpcha, 
[RK KKKRKEKKAKKKKKKRKKKKK 
/xxxx clearslists *«*xx*xx*/ 
[RRR KK RK KK IKK CK aK / 
250 1 clearslists: PROCEDURECclcdbtpo, clrtncode) 3YTE PUBLIC, 
/x Routine to send the contents, if anys of the */ 
/*x ecbtq and pebq of the current connection back */ 
/x to the client. This routine is also called *x/ 
/x by the Transmit Process when it handles Abort */ 
/* Returns "true" if any RBs were found so the x*/ 
/* caller knows whether it is ok to delete the cdb */ 
251 c DECLARE 
clrtncode BYTE, . 
rbsfound SYTE, /*x boolean indicating that >= 1 RS5s were returned */ 
cledbip POINTER, 
cle BASED cledbSp 
SIF f7 
SBELSE 
SSAVE NOLIST INCLUDE C:F1:TCLCO8.INC) 
t 
. /* routine to clear a list */ 
252 2 cleartoneSlist: PROCEDURE CLlistip), 
Coo 3 DECLARE s 
Clist$p-, link@ptr) POINTER, 
cl$rbs BASED Llist3p 
SIF f7 
SaLSE 
SSAVE NOLIST INCLUDE C:F1:TCLRBS.INC) 
7 
254 3 DO WHILE listSp <> O,; 
2a 4 linkSptr = clirbs.links /* save link field so its still good after send */ 
“f/x Link field will be cleared by tbhms */ 
256 4 cl$rbs.resp = clrtncode, 
257 4 cl$rbs.link = G-; /x always clear link field */ 
258 4 CALL ca$send(.bufsmip$mbx, list$p); 
259 4 rb$found = true; /* set flag: we found an eb to return */ 
260 4 list$p = linkSptr-, 
261 4 END; 
3 


END cleartonetlist, 


/* main clearSlists code */ 
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CALL cleartoneSlist(clc.pebashdr) , /x Clear the Receive Queue */- 
CALL cleartoneSlist(cle.defistatusSp), /*x clear the deferred status q */ 
CALL clearSoneflist(cle.chtathdr), /x Clear the Transmit Queue last so */ 
/*x that the Close R& will be last */ 
cle.zchtashdre,cle.pcbqshdr, cle.adafSstatus$p = QO; /* mark queues empty */ 
clespcbasbutécnt, cle.chtasbufsent = 07 . 
RETURNC(rbSfound); 
END clearSlists, 
[KR KIRKE KK RIK KK KKK KKK 
[xxxxe delete$cdb *xx/ 
LKR KKKKKKKKKKK KKK KK / 
deletescdblb: PROCEDURE CdLlecdhSindex, dicdhSp, dlrtnscode) PUBLIC, 
/* This routine unconditionally deletes a 
connection data base with all housekeeping, 
including killing the alarms built into it, 
and sending back any Request Blocks to the 
local client. Contrast with tryStoSdeletesScdh 
in RP, which calls this one. */ 
DECLARE 
dicdbSindex BYTE, 
dirtnicoda BYTE, 
dlcdb3Sp POINTER; 
scratch = clearslists(dicdbip, dirtn3code); 
CALL clearScdbSalarms(dledb3$p)-, /*x Kill alarms just in case */ 
leidsvector(dlicdb$index) = 0; /* delete the cdb by removing the cid */ 
num$cdbs = num3ccdbs - 17 
specStypeCdlcdbtindex) = OFFH, /x* remove this cdb from open match list */ 
ENO deletesedh-, 
[KKK KEKRKEK KK KK KK KK / 
[xxx opensrtn *xx*xx/ 
[RRR KRKKKEKKEKKKKKK KKK KKK / 
openSrtn: PROCEDURE; /* Open active and Open passive start here x/ 
/* Check to see if it’s legal */ 
IF rboslocsport = O THEN /x illegal: can’t have local port=0 *«/ 
DOs 
CALL ip_send_urbs_back Cillegal$Sreq); 
RETURN; 
END; 
/x determine typ2 of match specification 
and do additional legality checks */ 
IF (rbo.remS$host(0) = 0) AND (rbo.eremS$host(1) = 0) AND (rbo.remShost(2) = 0) THEN 
D0; | /x rem host unspecified */ 
TF rbho.wreq = openasgreq THEN. /x err: active open must be fully spec’d */ 
DQ; | 
CALL ip_send orbs_backCillegalS$req)> 
RETURN, 
END; 
ELSE /* passive open: ok */ 
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207 
IF rbo.remdono0rt = O THEN spec3typestamp = 2; /x unspecified */ 
ELSE specStypeStemp = 1, /x partially spec’d */ 
END; 
END; | 
/x remote host is specified */ 
DO, 
IF rbo.eramsport = OQ THEN /x illegal whether active or passive: */ 
DO; /*x can’t have spec’d rem host and unspec’d */ 
CALL ip _send urbs_backCillegal$req); /* remote port */ 
RETURN, 
END; 
ELSE specStypestemp = O- /* fully specified */ 
END 


LF 


/x* Now check to sée that there is no conflict with other 
pending opens: TCL can’t cope with more than one active 
open witn the same local port and remote sockets, nor can 

it handle open actives and fully specified open passives 
with the same local port and remotes socket. The reason 

is that two TCL modules with multiple opens toward each 
other could simultaneously make conficting decisions 

about the binding of an incoming SYN request to a local 
CD3. Note that it is ok to have any number of simultaneous 
connections between the same two sockets, but the client 
has to wait for each to become established before 
requesting the next one. Partially specified passive opens 
which match an active open are ok, because the connection- 
matching logic in the Recaive Process will always match 

a more strictly-specified C80 before a lessor-specified one 
on SYN procassing. */ 


/* Scan all CO8’%s, looking for another unsynchronized connection 
on tne same local port, and with a matching remote socket: */ 


0 TO curSmaxSedbs-17 
specStype(j) = 0 THEN 


DOs /* Tound an unsynch’d COB x/ 
CALL satupSedb(j, .zcursedb3p)-; 
IF celocSport = rbo.zlocSport AND 
CCMPWCDc.ram$host(0),. Orbo.wremShost (0), 4) = OFFFFH) THEN 
/xecsren$host(0) = rbho.wremShost(0) AND*/ 
/xc.aremshost(1) = rbho.wramf$host(1) ANDx/ 


/xcaremshost(2) = rbho.rem$host(2) ANDx/ 
/xcsrem$port = rbo.remSport */ 


DO, /* found a match - see if it matters «2. if req is open active, 
then no match is ok, but if req is open passive, than 
other open passives are ok, but not open actives. */ 


IF rbs_req = openasreq OR 
(rbs_req = openpSreq AND castate = synsent) THEN 
DO, . . 
CALL ip_send orbs back CopanScontflict); 
RETURN, 
END; 


END; 
END, 
/x of loop */ 
/x we now have a legal open request - see 
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if there is space for it */ 
IFinumScdbs >= curdmaxSedbs THEN 
00,7 /x Error: no resources */ 
CALL ip send _rbs_back (noSresourcessresp); 
RETURN? 
END, 
/* There’s space: allocate a new Connection ID (local half) 
setscid: . 
IF firstsopen THEN 
D0; 
/* get timestamp for random value */ 
/* Halfway to random: this code produces 
an initial CID whose lower twelve bits are 
random, but whose upper 4 bits are the lower 
4 bits of the local host ID. Drop out the 
first OR clause to get totally random value. 
This scheme depends for its randomness on 
the variability of the disc accesses for 
the comm and OS boots and (for workstations) ) 
on the time until LOGON is typed. */ 


lasticid 


= (SHLCloc3host(2)-4) ANO OFOOOH) OR Crandom AND GOFFFH); 
firstSopen = f 


alse; 
ZNO; 


newcids: 
IF ClastScids=last3cid+1) = 0 THEN last$Scid = last$cid + 1, 
| /x chack to see that its freer repeat if 
we get an "occupied" one x/ 
IF search_lcidivector(last$cid) <> OFFFFH THEN GOTO newcids 
/x there’s spacer, and we have a new cid, 
so find a hole for it in the index table */ 


curScdbS3index = search _lcid3veactor(0);, 
/x Got the hole, now install the new cid *«/ 
leidtvector(curScdbSindex), rbo.wcid, curScid = lastS$cid, 


CALL setupScedbCcurScdb3index, .zcurs$edbSp), /* set up ptr for ¢ structure */ 
numicdbs = numsedbs + 1; 


/* Now zero out the parts of the new edh 
area that we don’t write immediately <*/ 


/x NOTE: need to check this on any changes 
in the COS format: 2b P hb tay 


/x 12/13/81 - R. Shah - changed from 48 to 52-as noconfid 

field is changed to words and two new fields (Clast3noconid - word 
and retransmit$state ~ byte are added. The following set 

now covers from the 22nd byte to the 121st byte. x*/ 


Lf€c.edatatachsf 
a 


ag=Q) and (c.dataSachSirbtype=84h) then 
cali CQclearga 


Larm(€ac.datatalarmsch) ; /x kludge FILL blib) «7 


1 
~ 
gz 
ee) 


CALL SETWCOsr Acarem$cid, 50); 
/* Now partially fill in cdb from info in 
the request block */ 
specStype(CcurscdbSindex) = specStypestemp; /x set it for Receive process */ 


PAGE 


x/ 
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/* 
Celoctcid = curScid,- 
CeiLocsport = rbo.wlocSport, 
cerem3net = rbho.zramsnet-, 


rhosremshost(Q); 
rhoeremshost (1); 
rhosramthost (2); 


ceremSnost (ad) 
ceramthost(1) 
ceremShost(2) 


ceremSport = rbo.ramsport, 
x / 
342 2 CALL MOVWC@rbo.cids BcelocScid,y 9) /* copy socket, cid, persist, abort$to info */ 
/* now check for defaults */ 
343 2 IF c.persist = 0 
344 2 THEN c.epersist = deffpersist-, 
345 2 IF Cw pone StoShi = 0 
346 2 THEN ceabortStoshi = defsabort$toShiz 
347 2 ceretranstoitdyu = defSretranstoSdus 
348 ec cenext$transmit = 17 
349 2 c.,ownerSdavice = rbo.mipSouwnersdevsid, 
350 2 ceownersprocesssid = rho.ownerSprocesstid; /* not related to SCL process ID */ 
351 2 CALL cqScreateSalarm(ac.datasalarmich), /* Create cdb alarms so we can */ 
552 2 CALL caScreateSalarm(ac.ctltalarmich), /x set and clear them later x/ 
/x Now check for active vs passive open req */ 
355 2 IF rbosreq = openpSreq THEN 
354 2 DQ; /x PASSIVE x/ 
355 3 castate = Llisten-, 
356 3 END; 
357 2 ELSE 
D0; /* ACTIVE x/ 
S35 3 castate = synsante, 
/x Now tell transmit process to sand a SYN 
control seg */ 
359 3 CALL ipSdeferSirbétoCirbssend$syn)ds = /* note irb send is deferred */ 
60 S END, 
SIF log 
SENDIF 
361 2 CALL ip send rbs_back(CokSresp)-, 
362 2 END onenSrtn, 
[RR KKK KKK KKK KKK KR KKK / 
[xxxx closeSrtn *«xxx/ 
[RR KKK KKK ERE RK KKK KK IK / 
363 1 close$rtn: PROCEDURE, 
364 2 closesSenqueaue: PROCEDURE (nswistate)s /* subroutine for use x/ 
/* by the close routine */ 
365 3 DECLARE 
newsstate BYTE? 
366 3 c~state = newSstate, /x Change conn state to indicated value */ 
SIF log 
SENOIF 
367 3 CALL anterSchtaq-, /* now, put the RB on the xmit queue */ 
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CALL ip$defertirbitpCirbissendtcheck)-, 


END closeSanqueue,s 


/*k 
DO CASE (c.state AND stateatmask); 
/x case Listen x/ 
GOTO synsenticase,s /* 


/* case synsant x*/ 
synsentscase: 


DC; /x 
/* 
/* 
CALL deleteScdb(curScdbsindex, 
I og 
SENDIF . 
CALL ip lsend_irbs_back( ok¢resp) 
END, 
{x ca syn received x/ 


se 
CALL closesSenqueue(finwaits1); /* 


stablished x*/ 
closeSenqueue(finwait31); 


/*x* case finwaitl x/ 
CALL ip_send urbs_backCillegaltreq); 


/x case finwaite */ 
CALL ip_send urbs_backCillagalSreq); 


/* case timewait x*/ 
CALL ip _send_rbs_back(CillegalSreq)-; 


/* case close wait */ 
CALL closeSenqueue(closing); 


/x casa closing */ 
CALL ip_send urbs_backCillegal$req); 


/x case closed */ 
CALL ip _send urbs_backCillegaltrea); 


END, /*x of do casa x«/ 


END closeSrtn, 


PROCEDURE CstScedbsp-, st 
[x 
/x 
[* 
/* 


getSstatussinfo: 


LLNA Transport Control Layer Interface Process 


04/15/82 04/23/32 PAGE 


/* and tell Transmit proc x/ 


Note: CID has already been checked */ 


Listen: same as synsent processing */ 


Close request issued before connection x/ 
reaches a synchronized state, so just */ 
delete it */ 

curScdbtp, okSclosed$Sresp); 


e 
tA 


same as established state processing */ 


/* illegal to issue a 2nd Close x/ 


[KKK KK KKK KK RK KR Kf 


/xx get$statussinfo xx/ 
LT KRKKRKKKKKRKKEK KKK KKK KKK / 


$rbsto) BYTE PUBLIC; 

this routine actually copies the status */ 
into into the cliant’s buffer */ 

(This routine is public, and requires cdbhp */ 
and rbsp as parameters because it is also */ 
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/x called by chkdeferred stat routine in RP x/ 


DECLARE 
etsecdb3p POINTER, /x COB otr for status reference */ 
stirbsSp POINTER, /x ptr to rbs of the status requast */ 
st$rbv3p POINTER, /x variable part of above */ 
stirbs 3AS=ED stSrbsS$p /* the request block */ 

SIF £7 

SELSE 


SSAVE NCLIST INCLUDE C:F71:TCLRBS.INC) 
7 
st$rbv BASED stSrbvp (1) 


SIF 7 

SELSe ) 

SSAVE NOLIST INCLUDE C:FT: TCLRBV.INC) 
r 
stbSp POINTER, /* Status Buffer Pointer x/ 
sth BASED sth$p /x Status Buffer «/ 

Sir 7 

SELSE 

SINGLUDE (2 F1-e TELS TACING) 

/x Definition of the fields returned in a Status request buffer 11/03/81 */ 
STRUCTURE ¢ /x fields returned on either type of request */ 
tclSstate BYTE, /x state of tcl x/ 
defSabort WORD, /x default abort timeout for connections */ 
defSretranSdu DOWORD, /* dafault retransmit timeout */ 
defSpersist WORD, /* defualt prsistence value */ 
curSmaxicdbs BYTE, /* max number of cdbs for which there is space avail */ 
nunmedls BYTE> /* number of connection data bases now allocatad*/ 
loc3net WORD, /x ID of our own network x/ 


locthost(€3) WORD, /* ID of this comm board (the local host ID) «/ 
totSpktssSrej WORD, /* total no. of rev packets rejected by this TCL x/ 
tot3retransSevents WORD, /* total number of times retran timer expired */ 
totErecvsbufsrej WORD, /x ttlsno times there was insufficient buf space x/ 
rtctdw ~ OWORD, /k realr-timer-clock: Cread-clock units) */ 


/x fields returned only for cid <> 0. */ 


/x NOTE: locport thru remport must be in this order to agree x/ 


/x with teledb.inc declaration ~ doing MOVW in statusfreq */ 


locf$port WORD, /* the local port number of this connection */ 
rem3net WORD, /x ID of remote network */ 

rem Snost (3) WORD, /* ID of the remote host */ 

rem3port WORD, /x the remote port number for this connection x/ 
locS$cid WORD, /x local half of the connection id */ 

remicid WORD, /x remote half of the connection ID x/ 
connsabort WORD, /x abort timeout value for this connection */ 
connbretransStofdw DWORD, /* conn retransmit timeout value */ 
conn$persist WORD, /x persistence value for this connection x*/ 
connstate BYTE, /x state of the connection */ 


pendingSrevedata WORD,  /x no. of bytes of rev data w/no rev buf space x*/ 
revsbuffrejscnt WORD-/* number of times thera was insuff rev buf space */ 
chtqSbhufScnt 8YTE, /* Number of RBs in transmit queue */ 

pebaqSbufSent 8YTE, /*x Number of RBS in Receive buffer queue */ 
Lloc3credit 8YTe,s /* myteredit: #okts we said remote guy could sendx/ 
rem$credit BYTE, /* hisScredit:Apkts remote guy said we can send */ 
hignhnestSsent WORD, /* highest s¢9 seq number sent (mod 65k) x*/ 

mysack Sno WORD, /x highest seg seq number we have acked */ 
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= nosconfid WORD, /x anoroximate number of retries since last ack */ 
= /* was received, value is inversely proportionalx/ 
= /x to confidence that remote tel and/or client */ 
= /* is still alive and healthy x/ 
= last3antry BYTE) /* symbolic ref to end of list: no info here x/ 
SENDIF 
7 
stbe BASED sttcdb3p /* connection data base for status req */ 
SIP OtT 
SELSE 
SSAVE NOLIST INCLUDE (€:F1:TCLCD8.INC) 
7 
statusthbufstoosshort: PROCEDURE CbufSsize) BYTE; 
/x routine to test that buffer size supplied 
by client is sufficient for the data requested */ 
DECLARE 
bufdsize WORD, 
RETURN € Cst3rbvCOQ).blkSlen < buf$size) OR Cst$rbs.enumSblks = 0) )-, 
END statustbhufitoosshort, 
stirbvS$p = ast$rbs.vb, /x* set up addressing to buffer */ 
SIF mipform 
sth$p = cq3mipS$getSaddress( st$rbv(0).blkS$ptr); /* set up ptr for status structure */- 
SELSE 
SENOIF 
IF statusSbufStooSshort (.stb.s.locport - .stb) THEN RETURNCbufStoosshort), 
/* fi11 in fields for short req */ 
CALL caSreadsdclock(.rtcddw), _/k get timestamp to send to client */ 
/x move everything in one chunk since 
all connection~independant itams have 
been aligned as declared in TSTART */ 
CALL MOVE C&tcl$state, Asth.tcl3state, .»zsthbslocport - .stb)-> 
/x Now check to see if it’s a connection-~ */ 
/x svnecific requests and fill in more */ 
/* fields if there is space. */ 
IF st3rbs.cid = 0 THEN RETURNCokSresp); 
IF statusSbufitoosshort(.sthelast3entry -~ .«stb) THEN RETURNCbufStoofshort); 
/x NOTE: fields in cdb and status buf do not */ 
/* currently match up properly, so change them to */ 
/x force a match, since mucho bytes can be saved */ 
/* by doing a movw like the one below! x*/ 
/* copy loc ports, remnets rem hostsremport */ 
CALL MOVWCastSc.loctport, fstbealocsnorts, 6); 
Sthelocscid = ste, boctcid: 
stlh.rem$cid = st$c.rems3cid, 
sth.aconn$abort = stS3c.abortStoshisz 
sth.connéretranstosdw = st3c.retranstosduw;, 
sth.connSpersist = stSc.persist, 
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sthsaconnstate = stic.state, 
sth.pending3revS$data = 
stbercevSbuf$rejscnt = 
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etéc.bendingtirev$data, 
stSc.revibufsrejscnts 
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sth.achtqsbufsent = stSc.achtqsbufients 
stbh.pchaSbufScnt = stic.pchaqsShbufScnt, 
sth.eloctcredit = st3c.myScredit, 


sth.eremtcredit = 
sth. highest3sent = 
sth amySack3no = st3c.emy3ack$no-z 
stb.noconfid = stte.noconfid, 
RETURNCokSresp), 

END get3statussinfo,s 


H 


PROCEDURE, 
/*x the 


statusSsrtn: 


=D a If 
space for tcl data 
returned. x/ 


/x main line 


CALL ip_send orbs _back( get3statussSinfo CcurScdbfp, 


END statusirtn; 


PROCEDURE; 


rbosslink = cedefS$statusi3p, 
cedefsstatussp = curdSrbsitp, 


IF Ceo.state AND stateSmask) >= 
ENO def3statusi3rtn,z 


stSc,hissecredit; 
sttc.highestisents. 


Status function returns information 
the individual connection requested, 
sufficient buffer space for the type of information 
Status always returns info on TCL if there is space 
connection info was requested, 
but not conn data, then only tel 


/x now send it back */ 


LKR KEK KKK KKKKEK KKK KEK / 


[xeek statussrtn x*x*x/ 
LRKKKEKEKAKKKKEKK KKK KK KK / 


about TCL and/or 

The client must supply 
requested, 
available for 
and there is sufficient 
data is 


status code */ 


curtrbs3p) ), 


LKR KEK KKK KKKKEKRKKEK KE KKK / 


/xx defSstatus$rtn *x/ 
[KKK KKKKKKKR KKK KR AK K / 


/x Handles deferred status requests. If 
state is in Established or beyond, send 

the RB back immediately marked OK. if 
state is listen, sysnsent, or synreceivad, 
then hold the RB until state becomes 
established, then send it back. If multiple 
def stat’s are received, they are stored 

as a stack. */ 


/x Always put the RB on the def stat lists... */ 
/* link top def st rb Cif any) to new RB x*«/ 
/x insert new rb as top one on list */ 


/x Now use the receive Process” routine to 
taka it off if state is estab or beyond */ 
THEN CALL chk$deferredSstatus(curscdbh3p)-; 


[kK RK OK KR KK KK KK / 
[ &* sendSrtn *«*x*«x«/ 
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sendSrtn: PROCEOQURE; 


DO CASE (c.state AND statesdmask); 
/* listan */ 
CALL enterSchta,s 


/x  synsent x/ 
CALL enterS$chta, 


/x* synrevd */ 
CALL enterSchtaq;, 


/x eastab x/ 
GOTO case3clswait, 


/* finwaitt */ 
GOTO case$closed, 


/x* finwait2e */ 
GOTO casesclosed-, 


4x timewait */ 
GOTO caseSclosed, 


fe close wait */ 


caseSclswait: 
D0; 
CALL enterScbtaq, 


END; 
/* closing */ 
GOTO caseSclosed, 


/* closed (when cdhb still exists)x«/ 


case$closed: 
DO; 


tt 


ND, /* case */ 


END sendSrtn-, 


post$rbufs: PROCEDURE; 


CALL ip _send orbs_back(€ illegal Breq); 


[RK KKKKKKKKKK RR KKK KKK K/ 


/* Put RBS on the queue x*/ 


CALL ipSdeferSirbttpCirbdsandcheck); 


[RKKKKKKKRKRKKKK KKK KKK / 


[xxx postSrbuf *«*x*xx/ 
[ kK KK KR RIO K ek kK ok / 


/* Routine to enter a client’s Receive buffer 
on the posted client buffer quéeuc.e. put it 
on unless a FIN has previously arriveds in 
which case nothing elsa can be raceived on 
this connection, so give it back immediately 
with an okSfin rasponse. x/ 


IF C€e.state AND statefimask) >= timewait THEN /* state is timewait, closewait, 


closing, or closed, so a FIN arrived earlier, 
possibly while no rev bufs ware posteds so 


/* can’t do sand after close or 


abort */ 


PAGE 
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tell nim. Note that we will tell him again x«/ 
/x averytime he issues a post rev buf. */ 
CALL ip _send -rbs_backCokSfingresp), 
ELSE CALL enters3pchq, 


END post3rbuf-; 


abortSconn: PROCEDURECacScdhbSindex, actcdb3p) PUBLIC; 
an RST segment to remote 
conn is in 
already sufficiently 
Always 
returning client’s RB, so a 
This is public 


/x Sends 
client, 

and isn’t 
closing sequence. 


if the 


the cdb. 


[KKK KKKEKKKKKE KR KEKEKKEK/ 


/xeekk abort$conn *x*ex/ 
LXE KKKK KKK KKK KKK KK 


a synchronized states 
advanced into a 
deletes the C08 before 
new open can re-use 


because it is also called 


by the mip delete process routine. x/ 


DECLARE 
ac3bcdbsindex BYT=, 
actedhb3p POINTER, 


acse BASED acScdbin 
SIF ft? 
SEL SE 
SSA 


Ve NOLIST INCLUDE (:F1:TCLCDB.INC) 


a 


buildSsendSlirb: PROCEDURE, 


/x Routine used by several states to sand 
send 
an RST seg (this is the only use of lirb’s). 
fields are set up to indicate the contents 
actual header field. 


/* build and 
send 
The 


of the 


dest port thru seg ack no 
seg header, 
by TP. x*/ 


actual 
used 


AS the 
can be 


CALL caSsiaqnal(.schedtlock); 

irb3p = caSreceive(.freesSlirbimbx), 
CALL cqgSwaitsem(.sched$Slock), 
lirb.reason = rstSclient3abort, 
lirb.type = irbSsendrst-, 
lirb.edl3dest(Q) acS$c.erem$nost (0), 
lirb.dl3dest(1) acSc.remShost( (1); 
lirb.dl3dest(2) acscearemthost(2), 
lirb.dest3port = actc.rem$port, 
lirb.sesourceSport = acS$c.loc3port, 
lirbsdestScid = acic.remscid; 
lirb.sourcetcid = acsc.loc$cid; 
lirb.asegsseqino = 

lirb.sasegtackEno = acSc.amySackS$no- 
CALL cas$send(.tp3mbx, irb3p); 
buildssendSlirh, 


END 


/* main 


the 


RST: */ 
asking it to 


an lirb to TP 


The ordsr of the 
fields is the same 
so that a MOVW call 


/x relinquish lock while we get buf x/ 


/* now renmacquire the lock */ 


acSc.zhighest3sent + 17 


abort conn code x*/ 


21 


PL/M-~86 COMPILER 


472 2 DO CASECac3c.state AND stateSmask), 
/* listen */ 
473 3 ; 
/* syn sent */ 
474 3 ; ; 
/*x* syn revd */ 
“rs 3 CALL buildssend$lirhb, 
/* astab */ 
476 3 CALL buildtSsandslirhb; 
/* fin wait 1 */ 
477 3 CALL build3sendslirh, 
/* fin wait 2 */ 
478 3 CALL buildssendtlirb, 
/x* time wait */ 
479 3 ; 
/x close wait x/ 
480 3 CALL buildSsend$lirb, 
/* closing */~- 
4814 3 CALL build$sendslirh; 
/* closed x/ 
482 3 ? 
483 3 END, /* of do case */ 
484 2 CALL daletetcdbCacscdb3index,vactcdbsp,vlocsabort), 
485 2 END abort3conn, 
486 4q aborttrtn: PROCEDURE; 
487 2 CALL abort3conn(curSedbSindex, curtedbSp), 
SIF log 
SENDIF 
488 2 CALL ip_send_irbs_back(€ ok$resp); 
489 2 END sabortS3rtn-, 
SIF «dig 


SEN 


ILN4 Transvort Control Layer Interface Process 


OLF 


/* Routina 
a connection. 


04/15/82 


/* no rst seg sent in listen */ 


/* now that we have scheduled 
for those states that need it, 
the cdi */ 


[RR KK KR RK KK Rk RK / 


abort$rtn 
[KR KKKKKK KK KR KK RK KEK / 


lxexx 


to honor cliant’s request to 


/*x do RST send and cdb deletion «/ 


04/23/82 


an RST seg 


/x rtn calls clearlists, too */ 


PAGES 
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490 


501 


Ul 


4 Ui 


a 


/* The main Session Control Interface PROCESS Cefinition x / 


LRKKKKKKKEKK KK KK KK KKK / 
[xxx ipSproc kaxk / 
[KKK KKK KKK KERR KK KKK / 


/x This is the client request Interface 
Process, one of four procasses in TCL. 

It is declared in TCLGEN.A86 Cor EPGEN.A86, 
in the Echo Server version) */ 


“10 forever, /x Processes loop forever */ 
{x wait for a request block «*/ 


1p too% ; 
cur3rbs3p = casreceivel.ipsinsmbx)-, 
processrh:; 
CALL caoswaitsem(.schedslock); /* get control of cdb before any serisus changes */ 
Sir dbg 
SENODIF 
/* before doing any processing, save the link 
field from this RB so that it can be used 
for request block chaining regardless of the x*/ 
nxt$rb3p = rbs.elink; : /x disposition of the current RB x«/ 
curSrbvsp = arbs.vbz /* set up variable part of RB, in case needed x/ 
SIF tog 
SENDIF 
/*x check for valid request code */ 
rbs_req = rbs.req; | 
IF rbs -raq > reqSmax THEN /*x possible bad req type: check it */ 
por “dbs 
SENCIF 


07 ; /x* its a bad rb req code */ 

ribs.aresp = invalid$Sreq,s /* set R38 response field */ 

CALL cqSsend(.bufSmipsmbx, curgrbs$o); /*x send it back to client. */ 
/x NOTE: this is the only place in TCL 
where we don’t zero the R3 Link field 
first; the reason is that there is 
2 somewhat higher chance that this type of 
arror was caused by a chunk of random 
memory being sent to TCL, and we don’t 
want to propagate the effect by 
interpreting the <possible> junk in the 
link field as another RB pointer. 
We leave the link field untouchad to help 
the client by not losing the linked RBs 
Cif any), in case this really isn’t 

random memory */ 
CALL cqtsignalC.schad$lock); 


rm 
ul 


PL/M~86 COMPILER iLNA Transport Control Layer Interface Process 04/15/82 94/23/82 


502 4 S6O0TO ipstop, 
503 4 NO; 
/* Validate cid: cid shouldn’t be checked on open or x/ 
/x a status req with cid=0, but otherwise cid */ 
/x should be non-zero, and be in the localcid list */ 
504 3 IF € rbs req > openn$req ) AND 
( (rbs_reqg <> statust$req) OR (rbs.cid <> 0) ) THEN 
505 5 DO, /x* CID must be validated */ 
506 IF (€ (rbs.cid = 0) OR 
CcurSedbSindex:=search_lcidSvector(rbs.cid)) = OFFFFH) THEN 
507 4 DO; f/x bad cid, tell client */ 
508 5 | CALL ip_send_urbs_ back CunknownScid$Sresp); 
509 5 GOTO iptstpostSproc, 
510 S ENC, 
/x cid oks set up’ access to cdb x/ 
511 4 curscid = rbs.cid, 
512 4 call setupS$edb(curScdbéindex, .«curscdb3p), 
/x Check for Closed state: if true, then connection was 
previously aborted by remote node or local timeout when 
there was no RB qusued with which to notify local 
cliant. We can tell him now with this RB, using the 
resp code saved for the purposs, thus allowing the COB 
to ba deleted. */ 
513 4 IF cestate = closed THEN /* processing is limited to. sending it back */ 
514 DO; 
4 SIF log } 5 a eee Teer a 
SENDIF f§ | a an 4 
515 5 3 CALL ip_send_rbs_back(c.eclosed$3reason); | 
316 > GALL cdeletescdbh(cursedbSindex, curscdbSp, caclosed$reason)s 
517 5 GOTO indpostsproc; a arr a6 ee Tree processing */ 
518 5 ENO, 
519 4 cNOD, 
/* do the actual processing of the RB x/ 
/* Now demultiplex by request type x/ 
520 5 procslocation = procs(rbs_req), /* replaces 00 CASE on rbs_req */ 
521 3 CALL procSlocation; 
522 3 ipSpost$proc: 
SIF cle 
SENOIF 
CALL cqPsianal(.sched3lock), /x* give back the cdb lock */ 
/x now that we have released schedlock, */ 
523 3 CALL sendSdeferredSirbs 
C.ipsirbsindex, .wipsirbtlist, curscdbtindex, curS$cid); 
/x send any deferred irbs to tp that */ 
/x were requested this time thru. */ 
: /* Let in any higher priority processes (such as */ 
/* the Transmit Process), since the */ : . 
524 3 CALL cq3schedule, /x RB just processed might nave made it ready */ 


/x Check to see if link field of RB gust finished*/ 
/* had an entry, if sor go back up and process asx/ 
/x though it just came in tpSmbx. */ 


Cal Gol 


uprileo LUNA Tetnenort Control Ley2r Intarface Procass 


TF nxtSrbSp <> Q THEN 
OQ; 
JIF misfporm 
curSrbsSp = cqimipiagetSaddress(€ nxt3rbSp)-; 
SELSE 
SENDIF 
GOTO processrbh, 
END; 


€ND,z /*x end of IP process do forever loop */ 
ENO isSproc, 


ENO ip, 


04/45/82 
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ADDR 


00244 
O028H 
OO2AH 
OO2ZEH 
O032H 
OO36H 
Q038H 
OO3AH 
OO038H 
OQ3CH 
OQ3EH 
O040H 
0042H 
0044H 
CO46H 
O047H 
O0048h 
OO4AH 
0043H 
OO04CH 
OO4EH 
O050H 
Q052H 
O054H 
OO55H 
Q056H 
O038H 
OOSAH 
OQ5CH 
0060H 
OO61H 
0062H 
OO6CH 
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Layer 


NAME, ATTRIBUTES, AND REFERENCES | 
ABORTCONN s. “eo ain a ah PROCEOURE 
WRORTREQ «oe we we eo aes LITERALLY 
ABORTRIN « «© « « «© «@ 2 PROCEDURE 
BOC ete. Vee ae OR “we ae He STRUCTURE 
STATIC oe: <<: ceo eee eS BYTE 
OCWNERDEVICE. 2. « BYTE 
OWNERPROCESSID . . WORD 
OCCT Oey eo we. ee WORD 
LOCPORT 5 i6)g 63.08 WORD 
REMNET 2» © » 8 « » WORD 
Rie MH OS Tat ig. he. Sa. ae WORD ARRAY 
REMPORT.» »« « = « « WORD 
PERS 1 S64 --6- oa WORD 
NBORTTOHT « «<)>» % WORD 
ReC Dar ce a>. de Ge. oe WORD 
RETRANTODW . « «© DWORD 
RESERVED « « « « « WORD 
TIMEDSEQNO 2. 2 «@ WORD 
SEGTRANSTIMEDW « « DWORD 
CUMRETRANOW. « » » DWORD 
PERSISITCNT ao: = « WORD 
CSTOQHOR« s: a w+ POINTER 
PCS OHOR ey. dna og POINTER 
DEFSTATUSP .« 2 « « POINTER 
MY ROCKING 6 s:G> 21.0 de 4 WORD 
SEEN aw Sai eae aces, «= CHORD 
MYCREOIT 60 -e: ao" BYTE 
CURBLKINDEX. « « « BYTE 
CBDATAINDEX 5. ey « WORD 
RCV3YTESCONSUMED . WORD 
CURBLKLENLEFT. . WORD 
HISACKNG 2 a eto ae A WORD 
NEXTTRANSMIT . «2. WORD 
CLOSEDREASON . a BYTE 
HISCREOLT « wc“ 4 ~ SYTE 
HIGHESTSENT. « «© « WORD 
CBTQBUFCNT ...-s BYTE 
PCBQBUFCNT « « « « BYTE 
PRISREJ@. & eS. @ 8 WORD 
PKTSRETRAN «2 «2 «© «2 WORD 
NOGONE ID: oe 3s: be ce, WORD 
LASTNOCONFIO . 1. WORD 
RETRANSMITSTAT=. . BYTE 
SENDFLAG . » « «@ « BYTE 
PENDINGRCVDATA . . WORD 
RCVSUFREJCNT .« «2 « WORD 
AYTGOUNT 2 ce <2 ‘ WORD 
DATAALARMCB. «0 « « WORD ARRAY 
DATAACBIRSTYPE .. BYTE 
DATAACSFLAG. « « BYTE 
DATAACBSREM , fe BYTE ARRAY 


CTLALARHC3 . . WORD ARRAY 
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PUBLIC STACK=0022xH 
yes ed 


STACK=0026H 
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472 
467 
465 


(2) 
464 


461 


466 


469 


468 


(2) 


(10) 
C.co% 
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COMP eek 


O0070H 
O071H 
O072H 
O0062H 
OOSEH 


OOOOH 
QO00H 
-O000H 
OOOOH 
O004H 
QO000H 
OQQOH 
0004H 


O9AQH 


QQ00H 
OO000H 


OOO01H 
0002H 
O004H 
OO06H 
O008H 
OOOAH 
0010H 
0912H 
O014K 
0016H 
0018H 
Q01CH 
QO1EH 
O020H 
0024H 


 0028H 


QO2AH 
OO2EH 
O032H 
O036H 
003 8H 
OOSAH 
0038H 
DO3CH 
OO3EH 
004QH 
0042H 
0044H 
0046H 
O047H 
0048H 
OO4AH 
00438H 
CO4CH 
OO04EH 
OO50H 
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GROSSSREFERENCS LISTING 


CTLACBFLAG 
CTLACBREM. 
ACCOBINDEX . . 


CTLACBIRSTYPE 
ACCO&BP 2 s s a s 


ALARMP , . 
ALARMP . . 
ALARMP . . 
ALARMP . . 
BUFFERLENGTH 


BUFMIPMBX. 
BUFO 2. « « 
BUPSIZE. « « 
BUFTOOSHORT. 
BUITLOSENDLIR3 


C. a 


STATE. e s a s 


OWNERDEVICE. . 
OWNERPROCESSID 
COCCLO <x. i ee 
LOCPORT. « 
REMNET « 
REMHOST.s + 
REMPORT. . 
PERSIST. .« 
ABORTTOHI. 
REMCID « « 
RETRANTOOW 
RESERVED . 
TIMEDSEQNO . 
SEGTRANSTIME 
CUMRETRANDW. 
PERSISTCNT . 
CBTQHOR. . . 
PCBQHODR. . 
DEFSTATUSP . « 
MYACKNOs « « « 
SEEN « ew we 
MWYCROEOTT ue 
CURBLKINDEXs « 
CBDATAINDEX. « 
RCVBYTESCONSUME 
CURBLKLENLEFT 
HISACKNO « « 
NEXTTRANSMIT 
CLOSZEOREASON 
HISCREDIT. « 
HIGHESTSENT. 
CBTQBUFCNT . 
PC3QSUFCNT . 
PKTSREJe « « 


.* 8 8 e# «© &®& 8 8 @ 
ea © = &®«® ¢© © 8&8 @ @ @ 8 & ® 


PKTSRETRAN 
NOCONFID . 


rT e a e ) s a a s s e Oo ses s e s s 
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BYTE 
SYTE 
BYTE ARRAY (10) 
BYTE IN PROC CASORTCONN) PARAMETER 454 484 
POINTER IN PROC CABORTCONN) PARAMETER 454 461 462 463 
464 465 466 467 468 469 472 484 
POINTER IN PROC (CQCLEARALARM) PARAMETER 118 
POINTER IN PROC C(CCOSETALARM) PARAMETER 112 
POINTER IN PROC CCQCREATEALARM) PARAMETER 109 
POINTER IN PROC (CQCHECKALARM) PARAMETER 115 
WORD IN PROC CDELTASEQ) PARAMETER AUTOMATIC 172 173 174 
WORD EXTERNAL(18) 169 258 500 
WORD IN PROC C(CQDLLRXRETBUF) PARAMETER 12 
WORD IN PROC CSTATUSBUFTOOSHORT) PARAMETER AUTOMATIC 389 390 
LITERALLY °8&”% 395 401 
PROCEDURE IN PROC CABORTCONN) STACK=0008AH 475 476 477 478 
480 481 | 
STRUCTURE BASEDCCURCODBP) 
BYTE 199 312 355% 358 366* 370 426 430 449 513 
BYTE 349% 
WORD 350* 
WORD 342 
WORD 310 
WORD 
WORD ARRAY (3) 310 
WORD 
WORD 343 344 
WORD 345 346* 
WORD 340 
DWORD 347% 
WORD 
WORD 
OWORD 
DWORD 
WORD ‘ 
POINTER 198* 204 225* 
POINTER 234*x 242 
POINTER 424 425* 
WORD 
WORD 
BYTE 248x 248 
BYTE 239% 
WORD 238% 
WORD 
WORD 236% 237% 
WORD 
WORD 201 348 
BYT= 515° ~51.6 
BYTE 
WORD 
BYTE 195* 195 196 221 224% 
BYTE Coie e2at eS2 
WORD 
WORD 
WORD 
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CROSS=REFERECNGE LESTING 


0052H 2 LASTNOCONFID .. « WORD 

0054H 1 RETRANSMITSTATE. . BYTE 

OO055H 1 SENDFLAG « « w « BYTE 

O056H 2 PENOINGRCVDATA . . WORD 

O058H 2 RCV3UFREJCNT . « « WORD 

OO5A4H 2 AYVTCOUNT: 2: Go nae Me WORD 

OOSCH 4 DATAALARMCB. « « e WORD ARRAY (2) 339 351 

QO060H 4 DATAACSIRSBTYPE .. BYTE 338 

OC61H 1 DATAACBFLAG. « « « BYTE 338 

_ 0062H 10 DATAACBREM 2. «2 © BYTE ARRAY(10) 

OOSCH 4 CTLALARNGS ©. a wi WORD ARRAY (2) 352 

OO70H 1 CTLACBIRSTYPE. . « BYTE 

O071H 1 CTLACBSFLAG . « « BYTE 

O072H 10 CT EACBREM a Ue) oy <i.’ BYTE ARRAY (10) | 
443 O92CH GASECEOSED a. ie wt Se Ne LABEL IN PROC (SENDRTN) 435 436 437 442 
438 0921H CAS PCL SWAT Toes Seo et Cae LABEL IN PROC (CSENDRTN) 434 
194 @000H Se CSTORS Sis: see se So tab at as STRUCTURE BASEDCCATQRBSP) IN PROC CENTERCBTO) 

OO0CH 1 CONTENTS « « «2 « RYTE 

O001H 1 CREOTT 4. a. Sw oc RYTE 

OGO2H 2 LASTS EQ6 co: 6 oes o WORD 205 

GO04H 4 MIPBUFBASE . 2 » « POINTER 

O008H 2 MIPLENGTH. «© «© « e WORD 

OOOAH 1 MIP TOSSED 2a. see a ee RYTE 

O008H 1 MIPOWNERDEVID. « o BYTE 

OOOCH 2 INTERNALPROCESSID. WORD 

OCOEH 4 RE Oa. a. Bt See tae ae BYTE 

OO0FH 4 RESP oce> ao See arm SYTE 

OC10H 2 RTNMIPSKT. » «© «© « WORD 

0012H 4 NK gn ae. die Ge et aS POINTER 206% 

0016H 2 GIs, ec as a BS WORD 

0018H 2 FIRSTSEQ « 2 « « WORD 

OC1AH 2 CLIENTUS 24 a a. a + WORD 

001CH 2 BUPLEN 2s <a Sa WORD 

OO1EH 1 NUMBLKS @ oo 0 ea BYT= 

O01FH 4 VG? a MS Gt ecu ub, & BYTE 
194 OQOO3AH & <CBTQRESP™ «2 ea an Gosd 4 POINTER IN PROC CENTERC38TQ) 204* 205 
153 O006H 4 GOBINDEX: «a &. @ a % BYTE IN PROC CSENDDEFERREDIR3|S) PARAMETER AUTOMATIC 153 159 
137 0O0G8H Go CBP 355, tas Se, cat cde a ts POINTER IN PROC CDEFERIRSTP) PARAMETER AUTOMATIC 137 139 
46 0000H (COS 2c 4: Or wer ee SS Ge POINTER IN PROC CCHKDEFERREDSTATUS) PARAMETER 46 
43 OO00H > HOS Pia ae) ar. ele: et ek POINTER IN PROC C(CLEARCOBALARMS) PARAMETER 43 
37 Q000H 2 CORP Oe. gg as Wt a aes eB WORD IN PROC CSETUPCDS) PARAMETER 37 
45 OG0DOH CHKDEFERREOSTATUS. . PROCEDURE EXTERNAL(30) STACK=0000H 427 
153 O004H Oy CTO eo ce a: ay By tao ote See a WORD IN PROC CSENDDEFERREDIRSS) PARAMETER AUTOMATIC © 153 160 
251 OO00H ieee. OG, wr at a apg Sy Ih ees STRUCTURE BASEDC(CLCDBP) IN PROC CCLEARLISTS) 

OCOOH 1 St le eee BYTE 

OCO1HK 1 OWNERDEVICE. .« « « SYTE 

0002H 2 OWNERPROCESSID. . WORD 

OCO4H 2 LOCC TS: a. ends tee ee WORD 

OO006H 2 LOCPORT esc wc a0 a. « WORD 

OCOS8H 2 REMNG bea ch aoe WORD 

OOOAH 6 REMHOST. 2 2 = 2 WORD ARRAY (3) 

0010H 2 REMPORT. » s « « «2 WORD 

9012H 2 PERS ES les oY aes WORD 

0014H 2 ABORTTOHI. « « e « WORD 

0016H 2 REMCLD: wo: a ar ie oe. @ WORD 

0018H 4 RETRANTODW «2 « « « OWORD 
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CLCDBP «4 « « « 
CLEARCOBALARMS 
CLEARLISTS & .s 
CLEARONELIST . 
CLOSED . 2 = » 
CLOSEENQUEUE . 
CLOSEREQ . 6 » 
CLOSERTN «2 2 « 
CLOSING. « « « 
CLR3Se «2 «© 2 « 


RESSRVED a se os 
TIMEDSEQNO . . 
SEGTRANSTIMEDW 
CUMRETRANOW. . 
PERSESTONT 6 Ms 
CBTQHOR. « « « 
PC8QHDR.~ «0 « « 
DEFSTATUSP « » 
MYACKNOw. « « « 
SEEN « «© «2 2 « 
MYCREDIT « « « 
CURBLKINDEX. « 
CBDATAINOEX. . 
RCVSYTESCONSUM 
CURBLKLENLEFT. 
HISACKNO . . -s 
NEXTTRANSMIT . 
CLOSEDREASON . 
HISCREDIT. « « 
HIGHESTSENT. . 
CBTQBUFCNT . . 
PCBQBUFCNT . . 
PKTSREJ. «0 «@ @ 
PKTSRETRAN . . 
NOCONFID .. 
LASTNOCONFID . 
RETRANSMITSTAT 
SENDFLAG . « -« 
PENDINGRCVDATA 
RCVBUFREJCNT . 
AYTCOUNT «4 « e 
DATAALARMC3. . 
DATAACBIRBTYPE 
DATAACBFLAG. . 
DATAACBREM « . 
CTLALARMCB . . 
CTLACBIRSTYPE. 
CTLACBFLAG. . 
CTLACBREM,. « 


CONTENTS 
CREDIT « 
LASTSEQ. . 
MIPBUFBASE 
MIPLENGTH. 
MiPpsosio » 
MIPOWNERDEYV 
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WORD 
WORD 
DWORD 
DWORD 
WORD 
POINTER 
POINTER 
POINTER 
WORD 
WORD 
BYTE 
BYTE 
WORD 
WORD 
WORD 
WORD 
WORD 
SYTE 


Bi i= 


WORD 
BYTE 
BYTE 
WORD 
WORD 
WORD 
WORD 
BYTE 
BYTE 
WORD 
WORD 
WORD 
WORD 
BYTE 
BYTE 
BYTE 
WORD 
BYTE 
BYTE 
BYTE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
LITERALLY 
PROCEDURE 
LITERALLY 
PROCEDURE 
LITERALLY 
STRUCTURE 
BYTE 

BYTE 

WORD 
POINTER 
WORD 

BYTE 

BYTE 
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267% 
267% 
267% | 


266 
264 
265 


268% 
268x 


ARRAY (2) 


ARRAY (10) 
ARRAY (2) 


ARRAY(10) 
POINTER IN PROC (CLEARLISTS) PARAMETER 


EXTERNAL C29) STACK=0000H 274 

BYTE PUSLIC STACK=001 2H 273 

IN PROC (CLEARLISTS) STACK=OQ00EH 264 
=o 513 

IN PROC (CLOSERTN) STACK=O001CH 

me 212 

STACK=0022H 5 

“oe 381 

BASEDCLISTP) IN PROC (CLEARONELIST) 
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